home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 1 / ETO Development Tools 1.iso / Essentials / Developer Essentials Jul 90 / Programming / MPW Interfaces & Libraries 3.1 / PInterfaces / IntEnv.p < prev    next >
Encoding:
Text File  |  1988-11-30  |  2.3 KB  |  100 lines  |  [TEXT/MPS ]
  1. {*-------------------------------------------------------------------------------*
  2.  |                                                                                 |
  3.  |                          <<< Integrated Environment >>>                         |
  4.  |                                                                                 |
  5.  |                 Copyright Apple Computer, Inc. 1986, 1987, 1988                  |
  6.  |                               All rights reserved.                              |
  7.  |                                                                                 |
  8.  *-------------------------------------------------------------------------------*}
  9.  
  10. UNIT IntEnv;
  11.  
  12.   INTERFACE
  13.  
  14.     USES PasLibIntf; { For definition of PASCALFILE }
  15.  
  16.     CONST
  17.  
  18.       { CMD words for IEfaccess(), from <fcntl.h> }
  19.  
  20.       F_OPEN = $6400; { (('d'<<8)|00), d => "directory" ops }
  21.       F_DELETE = $6401;
  22.       F_RENAME = $6402;
  23.  
  24.       F_GTABINFO = $6500; { (('e'<<8)|00), e => "editor" ops }
  25.       F_STABINFO = $6501;
  26.       F_GFONTINFO = $6502;
  27.       F_SFONTINFO = $6503;
  28.       F_GPRINTREC = $6504;
  29.       F_SPRINTREC = $6505;
  30.       F_GSELINFO = $6506;
  31.       F_SSELINFO = $6507;
  32.       F_GWININFO = $6508;
  33.       F_SWININFO = $6509;
  34.  
  35.       { Open modes for IEopen(), from <fcntl.h> }
  36.  
  37.       O_RDONLY = $0000;
  38.       O_WRONLY = $0001;
  39.       O_RDWR = $0002;
  40.       O_APPEND = $0008;
  41.       O_RSRC = $0010;
  42.       O_CREAT = $0100;
  43.       O_TRUNC = $0200;
  44.       O_EXCL = $0400;
  45.  
  46.       { IOCtl parameters }
  47.  
  48.       FIOINTERACTIVE = $6602; { (('f'<<8)|02), f => "open file" ops }
  49.       FIOBUFSIZE = $6603;
  50.       FIOFNAME = $6604;
  51.       FIOREFNUM = $6605;
  52.       FIOSETEOF = $6606;
  53.  
  54.       TIOFLUSH = $7400; { (('t'<<8)|00), t => "terminal" ops }
  55.       TIOSPORT = $7401;
  56.       TIOGPORT = $7402;
  57.  
  58.     TYPE
  59.       IEString = STRING;
  60.       IEStringPtr = ^IEString;
  61.       IEStringVec = ARRAY [0..8191] OF IEStringPtr;
  62.       IEStringVecPtr = ^IEStringVec;
  63.  
  64.       {$PUSH}
  65.       {$J+} { EXPORTed unit globals }
  66.  
  67.     VAR
  68.       ArgC: LONGINT;
  69.       ArgV: IEStringVecPtr;
  70.       EnvP: IEStringVecPtr;
  71.  
  72.       Diagnostic: TEXT;
  73.       {$POP}
  74.  
  75.     FUNCTION IEStandAlone: BOOLEAN;
  76.  
  77.     FUNCTION IEgetenv(envName: STRING; VAR envValue: UNIV IEString): BOOLEAN;
  78.  
  79.     FUNCTION IEfaccess(fName: STRING; opCode: LONGINT;
  80.                        arg: UNIV LONGINT): LONGINT;
  81.  
  82.     PROCEDURE IEopen(VAR fvar: UNIV PASCALFILE; fName: STRING; mode: LONGINT);
  83.  
  84.     FUNCTION IEioctl(VAR fvar: UNIV PASCALFILE; request: LONGINT;
  85.                      arg: UNIV LONGINT): LONGINT;
  86.  
  87.     FUNCTION IElseek(VAR fvar: UNIV PASCALFILE; offset: LONGINT;
  88.                      whence: LONGINT): LONGINT;
  89.  
  90.     PROCEDURE IEatexit(exitProc: UNIV LONGINT);
  91.       C;
  92.  
  93.     PROCEDURE IEexit(status: LONGINT);
  94.       C;
  95.  
  96.     PROCEDURE IE_exit(status: LONGINT);
  97.       C;
  98.  
  99. END.
  100.